home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
datasheets and manuals
/
Hardware
/
WHT
/
scsi
/
dsr_sources_2_2001
/
makefn
< prev
next >
Wrap
Text File
|
2006-10-19
|
1KB
|
86 lines
* Procedure MAKEFN
*
* This procedure will construct the file name out of the
* current path plus the file name.
*
MAKEFN MOVB @>834C,R6 Get SCSI ID
ANDI R6,>0F00
AI R6,->100
* Copy the path to the name compare buffer
*
MOV R6,R1
SRL R1,8
LI R0,40
MPY R0,R1
AI R2,PATH
LI R3,NCB
MKFNA LDCR @B02,4
CB *R2,@SPACE
JEQ MKFNB
MOVB *R2+,R4
JEQ MKFNB
* LDCR @B02,4
MOVB R4,*R3
LDCR @B04,4
MOVB R4,*R3+
JMP MKFNA
* DEC R0
* JNE MKFNA
MKFNB
CI R3,NCB
JEQ MKFNC
LDCR @B02,4
CB @-1(R3),@PERIOD
JEQ MKFNC
MOVB @PERIOD,*R3
LDCR @B04,4
MOVB @PERIOD,*R3+
MKFNC
LI R5,10
MOV @>834E,R2 Get pointer to file name
MOVB @>834C,R1
ANDI R1,>8000
JNE MKFND
* Set the VDP read address to the buffer
SWPB R2
MOVB R2,@VDPWA
SWPB R2
MOVB R2,@VDPWA
MKFND
* Now copy the file name
*
CI R1,0
JNE MKFNE
MOVB @VDPRD,R4
JMP MKFNF
MKFNE MOVB *R2+,R4
MKFNF CB R4,@ZERO
JEQ MKFNG
CB R4,@SPACE
JEQ MKFNG
LDCR @B02,4
MOVB R4,*R3
LDCR @B04,4
MOVB R4,*R3+
DEC R5
JNE MKFND
MKFNG CI R3,NCB+40
JEQ MKFNH
LDCR @B02,4
MOVB @SPACE,*R3
LDCR @B04,4
MOVB @SPACE,*R3+
JMP MKFNG
MKFNH RT